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EDTSCHMGQUSTR = scan a search strin 18-5e -1984 23:58: AX-11 Bliss-32 V4.0-742 
° 12-Sep-19 4 $3:38 33! EDT SREICHAGOUSTR bt 124 


; 1 600) RTITLE "EDTSCHMGQUSTR = scan a search string' 

3 ¢ 8 MODULE EDTSCHMGQUSTR ( ' Scan a search gtr ing 

; 7 OOe pret = 'v04-000' ! File: CHMGQUSTR.BLI Edit: JBS1003 
; } 9005 BEGIN 

: 4 0007 i i eeeeeeeeeeeeeeeeeeereeeReHAeeeeeeeeeeeeeeeeenereneenareneeeeeeeeneeeeeeeees 
: '® ® 
3 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; \’ 001 : - ALL RIGHTS RESERVED. * 
3 ! * 
; 8 gig 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ® 
$ 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
H 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 B08 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 sid | ; re TRANSFERRED. * 
Py 7 se 
3 20 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 21 bos) 1 '* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 $$ 4 ! = CORPORATION. * 
3 '® ® 
; 24 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
; 26 0026 1 !« * 
;. a 0027 1 !« * 
4 28 0028 1 Ve EAA AAA A AEE 
; @& ope? & 

: = 0030 1 

5; 0031 1 !++¢ 

H 32 Oss 1 ! FACILITY: EDT -- The DEC Standard Editor 

; 2 00335 1! 

$ 34 0034 1 ! ABSTRACT: 

s 2 0035 1! ; 

; Ha pst] : This module scans over the search string when used as an entity. 

: 3 sit ! ENVIRONMENT: Runs at any access mode - AST reentrant 

: 40 0040 AUTHOR: Bob Kushlis, CREATION DATE: Unknown 

> 42 0042 1 | MODIFIED BY: 

3 63 0043 1! 

; (44 0044 1 ! 1-001 - Original. DJS 04-Feb-1981. This module was created b 

s #65 0045 1! extracting the routine EDTSSSCAN_SEASTR from module CHANGE.BLI. 

3 ry pose ! } 1-003 - Improve the appearance of the Tisting. JBS 13-Jun-1983 

: 48 0048 1 
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EXTERNAL REFERENCES: 
In the routine 
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EDTSCHMGQUSTR EDTSCHMGQUSTR = scan a search strin 18-Se -1984 23:58:57 AX-11 Bliss-32 V4.0-74 Page 2 
v04-000 Declarations . 12-8 08=198e $3:38:35 HED T sReaCHAGOUSYR: oF f; (2) 
; 0 0049 1 XSBTTL ‘Declarations’ ; 
; 24 0930 1! ‘ 
; 2g 051 1 ! TABLE OF CONTENTS: ; 
a 005¢ 1! | : 
; 00 1 ; 
; 2? 0034 1 REQUIRE ‘EDTSRC: TRAROUNAM’ ; : 
: 57 0494 1 FORWARD ROUTINE | 
3 28 Beg2 1 EDTSSSCAN_SEASTR : NOVALUE; ! Scan over the search string when used as an entity ; 
; © ba9e 1! 
3; 6 CS} 98 1 ! INCLUDE FILES: 
§ $¢ 499 1! 
3 0500 1 
P 64 p29) 1 REQUIRE ‘EDTSRC:EDTREQ'; 
3; 6 0636 1 
>; 66 0637 1! 
; 67 0638 1 ! MACROS: 
; & 0639 1! 
: 69 0640 1! NONE 
; 0641 1! 
$ 71 064 1 ! EQUATED SYMBOLS: 
:..¢ 0643 1! 
; 7 0644 1! NONE 
. 0645 1! 
: 75 0646 1 ! OWN STORAGE: 
; © 0647 1! 
; 77 0648 ; NONE 
: 13 
; 1! 
3 7.3 


cel eamneste 
v04-000 


He 
4 
85 
86 
87 
88 
89 
90 
; 
94 
95 


97 


oO 


& 


PIRIPORINIRD <2 2 
SBSEUFUNSSSSVEORANLSSaNenrwnwsoowuwenRavcooe 


a ee ee ee ee eee eee eS 


ooo 


11 
CHMGQUSTR - scan a search strin 18-5e $1984 23:58:57 AX-11 Bliss-32 V4.0-74 
SSCAN_SEASTR = scan a search string 12286871382 $3 :38:34 EDT LSREICAMGOUSTR OL 1 24 
RSBTTL "EDTSSSCAN_SEASTR = scan a search string’ 
GLOBAL ROUTINE EDTSSSCAN_SEASTR ! Scan a search string 
: NOVALUE = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


'¢ 
: The quote character is one character back, get it so we can match. 
" EDTSSA_SEA_STR = .EDTSS$A_CMD_BUF; 


EDT$$G-SEA-LEN = 0; 
QUOTE_CHAR™= CHSRCHAR (CHSPLUS (.EDTSSA_CMD_BUF, -1)); 


ooo 
= 


SES 


1 
1 
1 
1 
1 
1 
1; 
1! This routine scans over the search eg when used as an entity. 
1! The address of the string is placed in the global variable EDTS$A_SEA_STR 
ret : and the length in EDT$$G_SEA_LEN . 
665 1. The command pointer EDTS$A_CMD_BUF is Left pointing one character beyond the 
oes : end of the command. 
0668 1 ! FORMAL PARAMETERS: 
0669 1! 
0670 1! NONE 
0671 1! 
0672 1 ! IMPLICIT INPUTS: 
0673 1! 
0674 1! EDTSSA_CMD_END 
0675 1! EDTSSA_CMD_BUF 
0676 1! 
0677 1 ! IMPLICIT OUTPUTS: 
0678 1! 
0679 1! EDTSS$A_CMD_BUF 
0680 1! EDTSSA_SEA_STR 
0681 1! EDT$$G_SEA_LEN 
0682 1! 
06835 1 ! ROUTINE VALUE: 
0684 1! 
0685 1! NONE 
0686 1! 
0687 1 ! SIDE EFFECTS: 
0688 1! 
0689 1! NONE 
0690 1! 
0691 1 !-- 
0692 1 
069 BEGIN 
0694 
0695 EXTERNAL 
069 EDTSSA_CMD_END, ! End of command pointer 
069 EDTSSA_CMD_BUF, ' Command string pointer 
0698 EDTSSA_SEA_STR, ! Address of search string. 
5344 2 EDTS$$G_SEA_LEN; ! Length of search string. 
01 LOCAL 
oe QUOTE_CHAR; 
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END; ! of routine EDTSSSCAN_SEASTR 


-TITLE EDTSCHMGQUSTR EDTSCHMGQUSTR = scan a search str 
-IDENT \V04-000\ 


~-EXTRN EDTSSA_CMD_END, EDTSSA_CMD_BUF 
-EXTRN EDTSSA_SEA_STR, EDTS$G_SEA_LEN 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
TS$SCAN Tee Save R2,R3,R4 ; 0655 
$$6 260-6 
$A =ChD 

000000006 
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$A_CMD_BUF, R2 
RO 
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; Routine Size: 59 bytes, Routine Base: _EDTSCODE + 0000 


716 «(1 
717 «1 =~! <BLF/PAGE> 


12 | 
EDTSCHMGQUSTR EDTSCHMGQUSTR = scan a search strin 18. Sep-1984 AX-11 Bliss-32 V4.0-742 Page 5 
104-000 EDTSSSCAN_SEASTR = scan a search string 14- ~ep- 1984 $3: 35: 35 EDT .SREICHMGOUSTR: BLI;1 : (4) 
: 
149 0718 1 END ! of module EDT$SCHMCQUSTR 
120 878 r 
151 0720 0 ELUDOM 
| 
| 
PSECT SUMMARY | 
Name Bytes Attributes 
_EDTSCODE 59 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics | 
Cnmenaan Symbols -------- Pages Processing | 
File Total Loaded Percent Mapped Time 
_$255$DUA28: speDT -SRCJEDT.L32;1 377 1 0 40 00:00.2 | 
“$255$DUA28: -SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
COMMAND QUALIFIERS 
ie eee -INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:CHMGQUSTR/OBJ=0BJ$:CHMGQUSTR MSRC$:CHMGQUSTR.BLI/UPDATE=(ENH$:C 
Size: 59 code + 0 data bytes | 
Run Time: 00:09.7 
Elapsed Time: 00:13. 
Lines/CPU Min: 4462 
Cty A ty | 12105 
nenery Used: 58 pages 
Compilation Complete | 
| 
| 
| 
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